10 POKE52,48:POKE56,48:CLR
20 POKE53281,1:PRINT"[147]":POKE53281,6:POKE53280,6
30 S=54272:V=54296:AD=54277:SR=54278:HF=54273:LF=S:SD=54276
40 FORL=STOS+24:POKEL,0:NEXT:POKEAD,14:POKESR,204
50 FORI=1436TO1443:POKEI,INT(RND(1)*25)+1:NEXT:FORI=1445TO1451
60 POKEI,INT(RND(1)*25)+1:NEXT:FORI=1 TO 500:NEXT
70 FORI=1436TO1443:READL:POKEI,L+128:GOSUB110:FORJ=1TO70:NEXTJ:POKESD,32:NEXTI
80 FORI=1445TO1451:READL:POKEI,L+128:GOSUB110:FORJ=1TO70:NEXTJ:POKESD,32:NEXTI
90 DATA19,16,5,12,12,9,14,7,3,18,9,20,20,5,18
100 POKE1444,160:GOTO 120
110 POKEV,15:POKEHF,40:POKELF,50:POKESD,33:POKEV,0:RETURN
120 PRINT"ONE MOMENT................PLEASE!"
130 PRINTCHR$(142):POKE56334,PEEK(56334)AND254
140 POKE1,PEEK(1)AND251:FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
150 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
160 FORI=1TO3:READW:FORC=WTOW+7:READA:POKEC,A:NEXTC:NEXTI
170 DATA12288,96,128,77,63,31,13,0,0
180 DATA12784,3,52,184,240,240,184,52,3
190 DATA12776,0,54,58,242,242,58,54,0
200 DIMW$(50):CL=54272
210 FORJ=1TO7:READM$(J):NEXTJ
220 POKE53272,(PEEK(53272)AND240)OR12
230 POKE53281,1:PRINT"[147]":POKE53281,6:POKE53280,6
240 R=1464:J=1:GOSUB450:GOSUB850
250 N$=NM$:POKE53272,21
260 GOSUB710:POKE53281,1:PRINT"[147]":POKE53281,6:POKE53280,6
270 WG=0:RT=0
280 FORB=1TON
290 PRINT"[147]":POKE214,12:PRINT:POKE211,INT((40-LEN(W$(B)))/2)-1:PRINTW$(B)
300 FORT=1TO1000:NEXT
310 PRINT"[147]     TO REVIEW THE WORD PRESS ? KEY"
320 POKE53272,28:R=1464:J=2:GOSUB450:GOSUB850
330 A$=NM$
340 IFA$="THAT WORD"THENJ=6:R=1704:GOSUB1020:GOSUB450:R=1544:GOSUB790:GOTO290
350 IFASC(A$)=63ORASC(A$)=47THEN290
360 IFA$=W$(B)THENGOSUB1020:J=5:M$(J)=M$(J)+" "+N$:R=1704:GOSUB450
370 IFJ=5THENRT=RT+1:GOSUB400:GOSUB570:GOTO560
380 WG=WG+1:GOSUB1020:J=3:M$(J)=M$(J)+" "+N$:R=1704:GOSUB450:GOSUB570
390 J=4:R=1824:M$(J)=M$(J)+" "+W$(B):GOSUB450:R=1544:GOSUB790:GOSUB570
395 M$(J)="THE CORRECT ANSWER IS:":GOTO590
400 REM CORRECT ANSWER SOUND
410 POKEV,15:POKESD,17:FORS=40TO100
420 POKEHF,INT(RND(1)*100+40):POKELF,S:FORD=1TO20:NEXT
430 NEXT:POKESD,16:RETURN
440 REM MESSAGE ROUTINE
450 C=((R-1024)/40)-1:CN=INT((40-LEN(M$(J)))/2)-1
460 FORI=1TOLEN(M$(J)):LR=R+CN+I:IFLR>2023THENLR=2023
470 FORK=1TO20:NEXTK:POKELR+1,32
480 POKELR,0:POKELR+1,62:POKELR+CL,1:POKELR+CL+1,1:GOSUB110:POKESD,32
490 FORK=1TO20:NEXTK:POKELR,32
500 A=ASC(MID$(M$(J),I,1)):IFA=32THENPOKELR,A:GOTO530
510 IFA<65ORA>90THENPOKE214,C:PRINT:POKE211,CN+I:PRINTCHR$(A):GOTO530
520 CH=A-64:POKELR,CH:POKELR+CL,1
530 NEXTI
540 FORD=LR+1TOR+38:POKED,0:POKED+1,62:POKED+CL,3:POKED+CL+1,3:GOSUB110
550 POKESD,32:FORK=1TO10:NEXTK:POKED,32:POKED+1,32:NEXTD:RETURN
560 POKE198,0:PRINT"HIT ANY KEY":GOTO 580
570 M$(J)=MID$(M$(J),1,LEN(M$(J))-LEN(N$)-1):RETURN
580 GETZ$:IFZ$=""THEN580
590 NEXTB
600 REM GAME OVER ROUTINE
610 POKE53272,21:PRINT"[147]THE GAME IS OVER"
620 PRINT"RIGHT";TAB(33);"WRONG"
630 PRINT"";RT;TAB(33);WG
640 PRINT"  WOULD YOU LIKE TO PLAY AGAIN (Y/N)?"
650 GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THEN650
660 IFZ$="Y"THENFORI=1TON:W$(I)="":NEXT:GOTO260
670 PRINT"[147]   IT HAS BEEN VERY NICE SPELLING          WITH YOU ";N$;"."
680 PRINT"    PLEASE COME BACK TO PLAY AGAIN."
690 POKE53272,28:R=1704:J=7:GOSUB450:POKE53272,21:END
700 REM INPUT
710 POKE53280,3:POKE53281,3
720 PRINT"[147]HOW MANY WORDS DO WE HAVE TODAY";:INPUTZ$:N=VAL(Z$)
725 IFN>50ORN=0THEN720
730 PRINT"[147]         [160]CHECK YOUR SPELLING!![146]"
740 FORX=1TON
750 POKE214,12:PRINT:POKE211,5:PRINT"ENTER WORD # ";X;:INPUT"[157]";W$(X)
760 FORI=1TO17:POKE214,12:PRINT:POKE211,21+I:PRINTCHR$(32):NEXTI
765 IFLEN(W$(X))=0ORLEN(W$(X))>10THEN750
766 IFASC(W$(X))<65ORASC(W$(X))>90THEN750
770 NEXTX:RETURN
780 REM ERASE ROUTINE
790 FORI=RTOR+38
800 CH=62:IF(I+1)/2=INT((I+1)/2)THENCH=61
810 POKEI+CL,1:POKEI+CL+1,1
820 POKEI,0:POKEI+1,CH:FORD=1TO50:NEXTD
830 POKEI,32:GOSUB110:POKESD,32:NEXTI:POKEI,32:RETURN
840 REM ANSWER ROUTINE
850 POKE198,0:POKE1561+CL,1:POKE1562+CL,1:POKE1561,0:POKE1562,62:CT=1:NM$=""
860 GETZ$:IFZ$=""THEN860
870 IFASC(Z$)=63ORASC(Z$)=47THENNM$=Z$:RETURN
880 IFASC(Z$)=32THENA=32:GOTO920
890 IFASC(Z$)=13ANDLEN(NM$)<>0THEN950
900 IFASC(Z$)<65ORASC(Z$)>90THEN860
910 A=ASC(Z$)-64
920 NM$=NM$+Z$:POKE1560+CT,A:POKE1561+CT,0:POKE1561+CT+1,62
930 POKE1560+CT+CL,1:POKE1561+CT+CL,1:POKE1561+CT+CL+1,1:CT=CT+1
940 GOSUB110:POKESD,32:GOTO860
950 IFJ<>1THENRETURN
960 FORI=1561TO1582:POKEI,32:FORJ=1TOLEN(NM$)
970 A=I+J:IFA>1582THENA=1582:POKEA,32:GOTO 990
975 AS=ASC(MID$(NM$,J,1)):IFAS<65ORAS>90THENPOKEA,32:GOTO990
980 POKEA+CL,1:POKEA,AS-64
990 NEXTJ:A=I+J+1:IFA>1582THENA=1582:POKEA,32:GOTO 1010
1000 POKEA-1+CL,1:POKEA+CL,1:POKEA-1,0:POKEA,62
1010 FORK=1TO30:NEXTK:GOSUB110:POKESD,32:NEXTI:RETURN
1020 FORI=1561+LEN(NM$)TO1581
1030 POKEI+CL,1:POKEI+1+CL,1:POKEI+2+CL,1:POKEI,32:POKEI+1,0:POKEI+2,62
1040 GOSUB110:POKESD,32:NEXTI:POKEI,32:POKEI+1,32:RETURN
1050 DATA"HI, WHAT IS YOUR NAME"
1060 DATA"HOW DO YOU SPELL THAT WORD"
1070 DATA"I'M SORRY, THAT IS WRONG"
1080 DATA"THE CORRECT ANSWER IS:"
1090 DATA"THAT IS RIGHT, VERY GOOD"
1100 DATA"VERY FUNNY, WISEGUY"
1110 DATA"BYE!  BYE!  BYE!"